home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 015 / lq.asc < prev    next >
Text File  |  1983-11-12  |  1KB  |  27 lines
  1. 1 CLS:PRINT "THIS basic PROGRAM WAS AUTOMATICALLY CREATED BY CONVERT.BAS"
  2. 2 PRINT"Copyright 1982 ,Rich Schinnell Rockville,MD. Not for Sale."
  3. 3 PRINT "This program will automatically generate you a .COM program named LQ.COM":PRINT 
  4. 4 ON ERROR GOTO 5000
  5. 6 INPUT "PLACE the disk to write the file in Drive A: and then Strike any key "; SCHINNELL$
  6. 9 PRINT:PRINT " Now reading the data statements, wait!"
  7. 10 RESTORE:READ T:FOR I = 1 TO T:READ N:X#=X#+N:NEXT I
  8. 20 READ TOT# :IF TOT#<>X# THEN 5000
  9. 22 CLS:LOCATE 12,5:PRINT "Now writing file NAMED LQ.COM standby please "
  10. 30 RESTORE
  11. 40 OPEN "R", #1,"LQ.COM",1 
  12. 50 FIELD #1, 1 AS N$
  13. 60 READ N
  14. 70 FOR I = 1 TO N
  15. 80 READ N:LSET N$=CHR$(N):
  16. 92 PUT #1 :NEXT I:CLOSE
  17. 94 PRINT "LQ.COM CREATED * *":GOTO 5010
  18. 99 DATA  64
  19. 1000 DATA 30,43,192,80,142,216,191,8,4,184,120,3
  20. 1011 DATA 80,143,5,131,199,2,184,188,3,80,143,5,203
  21. 1012 DATA 0,0,0,0,0,0,0,83,84,65,67,75,32
  22. 1013 DATA 32,32,83,84,65,67,75,32,32,32,83,84,65
  23. 1014 DATA 67,75,32,32,32,83,84,65,67,75,32,32,32
  24. 1015 DATA  4459
  25. 5000 PRINT "* * ERROR VERIFY DATA * * * "
  26. 5010 CLOSE:END
  27.